Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.3/Group1/Fetiket.exe/0/RCDATA/TFETIKETFORM/TFETIKETFORM.txt

Text File | 1998-07-13 | 35KB | 1,237 lines

object FEtiketForm: TFEtiketForm
  Left = 2
  Top = 6
  Width = 636
  Height = 445
  ActiveControl = DBGrid1
  Caption = 'Fiyat Etiketi Bas�m� (Alfabetik S�ral�)'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 628
    Height = 418
    HelpContext = 707
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 3
    Caption = 'Panel2'
    Color = 8404992
    TabOrder = 0
    object Label2: TLabel
      Left = 45
      Top = 297
      Width = 45
      Height = 14
      Caption = 'Aranan :'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Label1: TLabel
      Left = 94
      Top = 297
      Width = 19
      Height = 14
      Caption = 'Ara'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Image1: TImage
      Left = 8
      Top = 297
      Width = 34
      Height = 15
      Picture.Data = {<image000.bmp>}
    end
    object SpeedBtnFIR: TSpeedButton
      Left = 247
      Top = 328
      Width = 25
      Height = 25
      Hint = 'Firma Arama, Se�me'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EE0000000000
        000EEE0777777777770EEE0777777777770FEE0778787878770EFE0778787878
        770FEE0777777777770EEE0700700770770EEE00E00E0770770EEEEEEEEE0700
        070EEEE8EE8E070E070EEEFFF8FE070E070EE8F8EFEE000E070EE8FFF888E8EE
        070F8FFF8F888F8E070EEF888F8FFF8E000F88EEFF7FE888EEEE000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedBtnFIRClick
    end
    object SpeedBRAF: TSpeedButton
      Left = 21
      Top = 328
      Width = 25
      Height = 25
      Hint = 'Raf Yeri Bul,Se�'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedBRAFClick
    end
    object LabelLIS: TLabel
      Left = 21
      Top = 313
      Width = 250
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'L�STE �U AN ALFABET�K SIRALIDIR'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object LabelBAR: TLabel
      Left = 281
      Top = 312
      Width = 329
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'Liste �u An KLAVYEDEN ARAMAYA AYARLI'
      Color = clBlack
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 5
      Width = 618
      Height = 289
      Align = alTop
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clRed
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnKeyDown = DBGrid1KeyDown
      OnKeyPress = DBGrid1KeyPress
    end
    object BitBtnYAZ: TBitBtn
      Left = 475
      Top = 328
      Width = 137
      Height = 25
      Caption = 'Etiketleri Bast�r'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BitBtnYAZClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BitBtnFONT: TBitBtn
      Left = 475
      Top = 357
      Width = 137
      Height = 25
      Caption = 'Yaz� &Fontu'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = BitBtnFONTClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
        0000773777777733777703330033033330037FFF77F37F33377F700007330333
        3003777777337FFFF77F303003337000007337F77F3377777773303073333033
        003337F77F3337F377F337007333303300333777733337FF77F3330033333703
        07333377F333377F7733330733333300033333773FF3F3777F33333399393300
        033333337737FF777F333333339993307333333333777FF77333333333999930
        3333333333777737333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 475
      Top = 386
      Width = 137
      Height = 25
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
      Kind = bkClose
    end
    object BtnMIK: TBitBtn
      Left = 281
      Top = 328
      Width = 165
      Height = 25
      Caption = 'B�y�k Miktarl�lar� Ayarla'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BtnMIKClick
    end
    object BitBtn4: TBitBtn
      Left = 281
      Top = 357
      Width = 165
      Height = 25
      Hint = 'Eldeki Miktar kadar Etiket Say�s� Yazar'
      Caption = 'Eldeki Kadar Etik. Say. Yaz'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = BitBtn4Click
      NumGlyphs = 2
    end
    object BitBtn5: TBitBtn
      Left = 281
      Top = 386
      Width = 165
      Height = 25
      Hint = 'Listedeki T�m Etiket Say�s�n� S�f�rlar'
      Caption = 'T�m Etiket Say�lar�n� Sil'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn5Click
      Spacing = 1
    end
    object BitBtnFIRMA: TBitBtn
      Left = 48
      Top = 357
      Width = 195
      Height = 25
      Caption = 'Firmaya G�re Etiket Say�s� Yaz'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtnFIRMAClick
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EE0000000000
        000EEE0777777777770EEE0777777777770FEE0778787878770EFE0778787878
        770FEE0777777777770EEE0700700770770EEE00E00E0770770EEEEEEEEE0700
        070EEEE8EE8E070E070EEEFFF8FE070E070EE8F8EFEE000E070EE8FFF888E8EE
        070F8FFF8F888F8E070EEF888F8FFF8E000F88EEFF7FE888EEEE000000000000
        0000000000000000000000000000000000000000}
    end
    object BtnFIRM: TBitBtn
      Tag = 2
      Left = 49
      Top = 328
      Width = 195
      Height = 25
      Caption = 'Listeyi Yere G�re S�rala'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BtnFIRMClick
    end
    object BitBtn1: TBitBtn
      Left = 20
      Top = 357
      Width = 25
      Height = 25
      Hint = 'Yard�m(F1 Tu�u)'
      HelpContext = 707
      Caption = ' '
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      Kind = bkHelp
      Margin = 3
      Spacing = 17
    end
    object PanelYER: TPanel
      Left = 8
      Top = 248
      Width = 163
      Height = 78
      BevelInner = bvLowered
      BorderWidth = 1
      Color = clRed
      TabOrder = 11
      Visible = False
      OnExit = PanelYERExit
      OnMouseDown = PanelYAZMouseDown
      object Label14: TLabel
        Left = 46
        Top = 5
        Width = 61
        Height = 14
        Caption = 'Aranan Yer'
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object EditYER: TEdit
        Left = 38
        Top = 20
        Width = 89
        Height = 22
        TabOrder = 0
      end
      object Button1: TButton
        Left = 7
        Top = 48
        Width = 65
        Height = 23
        Caption = 'Tamam'
        TabOrder = 1
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 91
        Top = 48
        Width = 65
        Height = 23
        Caption = 'Vazge�'
        TabOrder = 2
        OnClick = Button2Click
      end
    end
    object BtnBAR: TBitBtn
      Left = 48
      Top = 386
      Width = 195
      Height = 25
      Caption = 'Barkodla Ara (F5 Tu�u)'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BtnBARClick
    end
    object BitBtn2: TBitBtn
      Left = 20
      Top = 386
      Width = 25
      Height = 25
      Hint = '�r�n Listesi'
      Caption = ' '
      ParentShowHint = False
      ShowHint = True
      TabOrder = 12
      OnClick = BitBtn2Click
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333330003333333333330FFF0333300000330FFF033330D
        DD03330F0900030DDD03330F099903000003330F0999030EEE0330000099030E
        EE0333099999030EEE0333099999000000003330999033333333333309033333
        3333333309033333333333300000333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
    end
  end
  object PanelMIK: TPanel
    Left = 85
    Top = 263
    Width = 314
    Height = 95
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 1
    BorderStyle = bsSingle
    Color = clBlack
    TabOrder = 2
    Visible = False
    OnMouseDown = PanelYAZMouseDown
    object Label3: TLabel
      Left = 9
      Top = 12
      Width = 44
      Height = 32
      AutoSize = False
      Caption = 'Etiket Miktar�'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Label4: TLabel
      Left = 98
      Top = 13
      Width = 102
      Height = 45
      AutoSize = False
      Caption = 'adetten fazla olan �r�nlerin etiket miktar�n� '
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Label5: TLabel
      Left = 237
      Top = 10
      Width = 68
      Height = 28
      AutoSize = False
      Caption = 'adet olarak listeye yaz'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object MaskEdit1: TMaskEdit
      Left = 53
      Top = 13
      Width = 39
      Height = 22
      EditMask = '!9999;0;_'
      MaxLength = 4
      TabOrder = 0
      Text = '50'
    end
    object MaskEdit2: TMaskEdit
      Left = 200
      Top = 13
      Width = 29
      Height = 22
      EditMask = '!99;0;_'
      MaxLength = 2
      TabOrder = 1
      Text = '5'
    end
    object BtnTAMMIK: TBitBtn
      Left = 11
      Top = 57
      Width = 81
      Height = 25
      Caption = '&Tamam'
      Default = True
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BtnTAMMIKClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333377F3333333333000033334224333333333333
        337337F3333333330000333422224333333333333733337F3333333300003342
        222224333333333373333337F3333333000034222A22224333333337F337F333
        7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
        33333337F73337F337F33333000033A33333A222433333337333337F337F3333
        0000333333333A222433333333333337F337F33300003333333333A222433333
        333333337F337F33000033333333333A222433333333333337F337F300003333
        33333333A222433333333333337F337F00003333333333333A22433333333333
        3337F37F000033333333333333A223333333333333337F730000333333333333
        333A333333333333333337330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BtnVAZMIK: TBitBtn
      Left = 215
      Top = 57
      Width = 81
      Height = 25
      Cancel = True
      Caption = '&Vazge�'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BtnVAZMIKClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033337733333333333333333F333333333333
        0000333911733333973333333377F333333F3333000033391117333911733333
        37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
        911117111117333337F3337F733337F3000033333911111111733333337F3337
        3333F7330000333333911111173333333337F333333F73330000333333311111
        7333333333337F3333373333000033333339111173333333333337F333733333
        00003333339111117333333333333733337F3333000033333911171117333333
        33337333337F333300003333911173911173333333373337F337F33300003333
        9117333911173333337F33737F337F33000033333913333391113333337FF733
        37F337F300003333333333333919333333377333337FFF730000333333333333
        3333333333333333333777330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object PanelYAZ: TPanel
    Left = 341
    Top = 8
    Width = 279
    Height = 366
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 1
    BorderStyle = bsSingle
    Color = clSilver
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    Visible = False
    OnMouseDown = PanelYAZMouseDown
    object Bevel2: TBevel
      Left = 4
      Top = 262
      Width = 265
      Height = 93
      Style = bsRaised
    end
    object Bevel1: TBevel
      Left = 8
      Top = 46
      Width = 256
      Height = 50
      ParentShowHint = False
      ShowHint = False
      Style = bsRaised
    end
    object Label9: TLabel
      Left = 11
      Top = 6
      Width = 64
      Height = 14
      Caption = 'Sayfa Say�s�'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 156
      Top = 6
      Width = 66
      Height = 14
      Caption = 'Etiket Say�s�'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 154
      Top = 71
      Width = 25
      Height = 14
      Caption = 'Sat�r'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 14
      Top = 71
      Width = 32
      Height = 14
      Caption = 'S�t�n'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 11
      Top = 50
      Width = 249
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Etiket Ba�lang�� Noktas�'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object DBTextSGen: TDBText
      Left = 9
      Top = 150
      Width = 59
      Height = 17
      DataField = 'SayfaGenislik'
      DataSource = DS_ETK
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBTextSayfaYuk: TDBText
      Left = 140
      Top = 150
      Width = 67
      Height = 17
      DataField = 'SayfaYukseklik'
      DataSource = DS_ETK
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 12
      Top = 99
      Width = 247
      Height = 46
      AutoSize = False
      Caption =
        'Etiketlerinizi Bast�rmadan �nce Yaz�c� Sayfa Tipini Kullan�c� Ta' +
        'n�ml�(Custom) Se�ip Sayfa Boyutunu A�a��daki Boyutlarda Tan�mlay' +
        '�n.'
      WordWrap = True
    end
    object Label12: TLabel
      Left = 74
      Top = 150
      Width = 52
      Height = 14
      Caption = 'mm gen.,'
    end
    object Label13: TLabel
      Left = 210
      Top = 149
      Width = 48
      Height = 14
      Caption = 'mm y�k.'
    end
    object Label27: TLabel
      Left = 7
      Top = 264
      Width = 260
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Caption =
        '�r�nden Ba��ms�z Etiket Bast�rmak i�in Adet ve Fiyat Yaz�p '#39'Ba��' +
        'ms�z Etiket Bas'#39' Tu�una Bas�n'
      Color = clNavy
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      WordWrap = True
    end
    object Label25: TLabel
      Left = 17
      Top = 305
      Width = 26
      Height = 14
      Caption = 'Adet'
    end
    object Label26: TLabel
      Left = 103
      Top = 305
      Width = 25
      Height = 14
      Caption = 'Fiyat'
    end
    object BtnTAMYAZ: TBitBtn
      Left = 14
      Top = 233
      Width = 111
      Height = 25
      Caption = '&Hepsini Bast�r'
      Default = True
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BtnTAMYAZClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333377F3333333333000033334224333333333333
        337337F3333333330000333422224333333333333733337F3333333300003342
        222224333333333373333337F3333333000034222A22224333333337F337F333
        7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
        33333337F73337F337F33333000033A33333A222433333337333337F337F3333
        0000333333333A222433333333333337F337F33300003333333333A222433333
        333333337F337F33000033333333333A222433333333333337F337F300003333
        33333333A222433333333333337F337F00003333333333333A22433333333333
        3337F37F000033333333333333A223333333333333337F730000333333333333
        333A333333333333333337330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BtnVAZYAZ: TBitBtn
      Left = 144
      Top = 233
      Width = 111
      Height = 25
      Cancel = True
      Caption = '&Vazge�'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = BtnVAZYAZClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033337733333333333333333F333333333333
        0000333911733333973333333377F333333F3333000033391117333911733333
        37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
        911117111117333337F3337F733337F3000033333911111111733333337F3337
        3333F7330000333333911111173333333337F333333F73330000333333311111
        7333333333337F3333373333000033333339111173333333333337F333733333
        00003333339111117333333333333733337F3333000033333911171117333333
        33337333337F333300003333911173911173333333373337F337F33300003333
        9117333911173333337F33737F337F33000033333913333391113333337FF733
        37F337F300003333333333333919333333377333337FFF730000333333333333
        3333333333333333333777330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object Edit1: TEdit
      Left = 11
      Top = 21
      Width = 99
      Height = 23
      Color = clNavy
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 156
      Top = 21
      Width = 104
      Height = 23
      Color = clNavy
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object SpinEBSAT: TSpinEdit
      Left = 186
      Top = 66
      Width = 57
      Height = 23
      MaxLength = 2
      MaxValue = 10
      MinValue = 1
      TabOrder = 3
      Value = 1
      OnExit = SpinEBSUTExit
    end
    object SpinEBSUT: TSpinEdit
      Left = 48
      Top = 68
      Width = 57
      Height = 23
      MaxLength = 2
      MaxValue = 10
      MinValue = 1
      TabOrder = 2
      Value = 1
      OnExit = SpinEBSUTExit
    end
    object BtnETK: TBitBtn
      Left = 14
      Top = 171
      Width = 111
      Height = 25
      Caption = 'Etiket Tan�m'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = BtnETKClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
        FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF
        FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9
        FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF
        FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF
        FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
        C880733777777777733700000000000000007777777777777777333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
    end
    object BtnEtkHesap: TBitBtn
      Left = 143
      Top = 171
      Width = 111
      Height = 25
      Caption = 'Gerekli Etk.Say�s�'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BtnEtkHesapClick
      NumGlyphs = 2
    end
    object BitBtnTEK: TBitBtn
      Left = 14
      Top = 202
      Width = 240
      Height = 25
      Caption = 'Sadece ��aretli �r�n�n Etiketini Bast�r'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = BtnTAMYAZClick
      NumGlyphs = 2
    end
    object EditAdet: TEdit
      Left = 47
      Top = 300
      Width = 34
      Height = 22
      TabOrder = 9
      Text = '1'
    end
    object EditFIYAT: TEdit
      Left = 130
      Top = 300
      Width = 135
      Height = 22
      TabOrder = 10
    end
    object BtnBAG: TBitBtn
      Left = 48
      Top = 326
      Width = 169
      Height = 25
      Caption = 'Ba��ms�z Etiket Bas'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 11
      OnClick = BtnBAGClick
    end
  end
  object DataSource1: TDataSource
    DataSet = FEtkBasTAB
    OnDataChange = DataSource1DataChange
    Left = 247
    Top = 13
  end
  object FEtkBasTAB: TTable
    DatabaseName = 'ECZ'
    IndexName = 'ILACADI'
    TableName = 'urun.db'
    Left = 220
    Top = 13
    object FEtkBasTABILACAD: TStringField
      DisplayLabel = '�r�n Ad�'
      DisplayWidth = 32
      FieldName = 'ILACAD'
      ReadOnly = True
      Required = True
      Size = 36
    end
    object FEtkBasTABFIRMANO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'F�RMA'
      DisplayWidth = 21
      FieldName = 'FIRMANO'
      ReadOnly = True
      OnGetText = FEtkBasTABFIRMANOGetText
    end
    object FEtkBasTABYER: TStringField
      DisplayLabel = 'Raf Yeri'
      FieldName = 'YER'
      Size = 7
    end
    object FEtkBasTABFIYAT: TCurrencyField
      DisplayLabel = 'Fiyat�'
      DisplayWidth = 13
      FieldName = 'FIYAT'
      ReadOnly = True
    end
    object FEtkBasTABFIYATARIH: TDateField
      DisplayLabel = 'Fyt.Trh.'
      DisplayWidth = 8
      FieldName = 'FIYATARIH'
      ReadOnly = True
      DisplayFormat = 'dd/mm/yy'
    end
    object FEtkBasTABETIKET: TIntegerField
      DisplayLabel = 'Etk.Mik'
      DisplayWidth = 6
      FieldName = 'ETIKET'
    end
    object FEtkBasTABMIKTAR: TIntegerField
      DisplayLabel = 'Elde'
      DisplayWidth = 4
      FieldName = 'MIKTAR'
      ReadOnly = True
    end
    object FEtkBasTABILACKOD: TStringField
      FieldName = 'ILACKOD'
      Visible = False
      Size = 13
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Left = 560
    Top = 392
  end
  object PrintDialog1: TPrintDialog
    Left = 288
    Top = 384
  end
  object QTUMETK: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'UPDATE URUN'
      'SET ETIKET=MIKTAR'
      'WHERE MIKTAR>0')
    Left = 408
    Top = 384
  end
  object QSIFIRLA: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'UPDATE URUN'
      'SET ETIKET=NULL'
      'WHERE ETIKET IS NOT NULL')
    Left = 224
    Top = 352
  end
  object EczAdTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'EKIM.DB'
    Left = 64
    Top = 168
    object EczAdTabEADI: TStringField
      FieldName = 'EADI'
      Size = 35
    end
  end
  object QTOPETK: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT '
      'SUM(URUN.ETIKET)'
      'FROM URUN '
      'WHERE URUN.ETIKET>0')
    Left = 288
    Top = 96
    object QTOPETKSUMofETIKET: TFloatField
      FieldName = 'SUM of ETIKET'
    end
  end
  object QMIKBUYUK: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      01000200067665726D696B0003040000000000000005656C6D696B0003040000
      0000000000}
    SQL.Strings = (
      'UPDATE URUN'
      'SET ETIKET=:vermik'
      'WHERE ETIKET>:elmik')
    Left = 224
    Top = 352
  end
  object FirmTab: TTable
    DatabaseName = 'ECZ'
    ReadOnly = True
    TableName = 'FIRMA.DB'
    Left = 224
    Top = 320
    object FirmTabFIRMANO: TIntegerField
      FieldName = 'FIRMANO'
    end
    object FirmTabFIRMAD: TStringField
      FieldName = 'FIRMAD'
      Size = 36
    end
  end
  object QFIRMA: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100094669726D614E6F737500030400000000000000}
    SQL.Strings = (
      'UPDATE URUN'
      'SET ETIKET=MIKTAR'
      'WHERE (MIKTAR>0)'
      'AND (FIRMANO=:FirmaNosu)')
    Left = 168
    Top = 296
  end
  object FontTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'FONT.DB'
    Left = 496
    Top = 384
    object FontTabBIRIM: TStringField
      FieldName = 'BIRIM'
      Size = 9
    end
    object FontTabFONTADI: TStringField
      FieldName = 'FONTADI'
      Size = 35
    end
    object FontTabFONTSIZE: TSmallintField
      FieldName = 'FONTSIZE'
    end
    object FontTabCOLOR: TIntegerField
      FieldName = 'COLOR'
    end
    object FontTabSTYLE: TStringField
      FieldName = 'STYLE'
      Size = 1
    end
  end
  object T_ETK: TTable
    DatabaseName = 'ECZ'
    TableName = 'Etiket.DB'
    Left = 296
    Top = 144
    object T_ETKYBYukardan: TSmallintField
      FieldName = 'YBYukardan'
    end
    object T_ETKYBSoldan: TSmallintField
      FieldName = 'YBSoldan'
    end
    object T_ETKSKacSutun: TSmallintField
      FieldName = 'SKacSutun'
    end
    object T_ETKSKacSatir: TSmallintField
      FieldName = 'SKacSatir'
    end
    object T_ETKEtiketBoyu: TSmallintField
      FieldName = 'EtiketBoyu'
    end
    object T_ETKEtiketEni: TSmallintField
      FieldName = 'EtiketEni'
    end
    object T_ETKEtkAraUzEn: TSmallintField
      FieldName = 'EtkAraUzEn'
    end
    object T_ETKEtkAraUzBoy: TSmallintField
      FieldName = 'EtkAraUzBoy'
    end
    object T_ETKTLyeriSOL: TSmallintField
      FieldName = 'TLyeriSOL'
    end
    object T_ETKTLyeriUST: TSmallintField
      FieldName = 'TLyeriUST'
    end
    object T_ETKEczYeriSOL: TSmallintField
      FieldName = 'EczYeriSOL'
    end
    object T_ETKEczYeriUST: TSmallintField
      FieldName = 'EczYeriUST'
    end
    object T_ETKUrunYeriSOL: TSmallintField
      FieldName = 'UrunYeriSOL'
    end
    object T_ETKUrunYeriUST: TSmallintField
      FieldName = 'UrunYeriUST'
    end
    object T_ETKPROrien: TStringField
      FieldName = 'PROrien'
      Size = 1
    end
    object T_ETKUrunVar: TStringField
      FieldName = 'UrunVar'
      Size = 1
    end
    object T_ETKSayfaGenislik: TSmallintField
      FieldName = 'SayfaGenislik'
    end
    object T_ETKSayfaYukseklik: TSmallintField
      FieldName = 'SayfaYukseklik'
    end
    object T_ETKFONTADI: TStringField
      FieldName = 'FONTADI'
      Size = 35
    end
    object T_ETKFONTSIZE: TSmallintField
      FieldName = 'FONTSIZE'
    end
    object T_ETKCOLOR: TIntegerField
      FieldName = 'COLOR'
    end
    object T_ETKSTYLE: TStringField
      FieldName = 'STYLE'
      Size = 1
    end
  end
  object DS_ETK: TDataSource
    DataSet = T_ETK
    Left = 272
    Top = 144
  end
  object FontDialogU: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Left = 472
    Top = 376
  end
end